﻿Public Class WaitDialog
    Public Property LabelText As String
        Set(ByVal value As String)
            Me.Label1.Content = value
        End Set
        Get
            Return Label1.Content
        End Get
    End Property

    Public Property Progress As Integer
        Set(ByVal value As Integer)
            ProgressBar1.Value = value
        End Set
        Get
            Return ProgressBar1.Value
        End Get
    End Property

    Public Property ProgressMax As Integer
        Set(ByVal value As Integer)
            ProgressBar1.Maximum = value
        End Set
        Get
            Return ProgressBar1.Maximum
        End Get
    End Property

    Public Property ProgressIndeterminate As Boolean
        Set(ByVal value As Boolean)
            ProgressBar1.IsIndeterminate = value
        End Set
        Get
            Return ProgressBar1.IsIndeterminate
        End Get
    End Property
End Class
